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VECTOR-8 


DECUS Program Library Write-up 


DECUS NO. 8-392 


INTRODUCTION 

This document describes Vector-8, and assumes that the 
reader is familiar with the basic concepts of Vector-8. 

The article entitled "An Introduction to Vector-8, a New 
Programming Language," published in DECUSOPE Vol. 10, No. 1 
is included and should provide the rudimentary knowledge 
necessary for the reading of this manual. 

It is also pertinent to note that many features and 
some details of Vector-8 have changed since the publication 
or the article. Thus, the article should be read as a 
primer, not as a statement of the rules of syntax and other 
such details. 


VECTOR-8 
MISCELLANEOUS ELEMENTS 

Numbers may be specified by up to 15 digits, and a 
decimal exponent. The value of a number in Vector-8 may 
vary from .14 x 10" 28 —1.7 x 10 38 . Some examples of numbers; 

12 1550 —12.98 

12.2 1.5E5 —1.5E--5 

Vector-8 works with 7 significant digits. 

Character strings are specified by a string of characters 
enclosed within quotes. Any legal character, including a 
CR, may be part of the string. Examples ( stands for CR) 

"A&1BC" 

"ABC r ) DE" 

" DE" 

% 

Vector-8 recognizes 3 pairs of parenthesis; 

They must be matched correctly, or an error results. 

Vector-8 recognizes the following characters; 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
1234567890 

!"#$%&'()*+,-./:;<=>? 

(§>f \ 3 T SPACE 






The following a control characters are recognized 
Vector-8 in input: 


RUBOUT : 
ALTMODE : 

LINE FEED: 


CR 


issues a CR-LF, restarts input, 
echos "\", erase char on left 
echos a CR-LF, but packs nothing. 
This allows lines to be continued, 
only recognized in a char string. 
Echos and packs a CR, but does not 
terminate input. 

terminates input. If typed in a 
char string, acts as a LINE FEED. 


Variables are uniquely identified by two characters, 
the fizst of which must be a letter, and the second of which 
may be either a letter or digit. This is analogous to 
FOCAL. The defining of variables is described in the section 
on the SET command. 

indexing is accomplished by following a variable, 
number string, or character strings with an expression 
enclosed in parenthesis. This expression must not result 
in a character string. All indices are truncated and must 
be greater than 0. An indexed expression may itself be 
indexed. This may proceed to any depth. Some examples; 


5678 (1 2 4) =£568 

5 6 7 8 (1 2 4) (1 2) 4 5 6 

5 6 7 8 (1 2 4) (2 3)468 

5 6 7 8 (1 2 4) (2 3) (2) 4 8 

"ABCD" (4 3 2 1) 4 "DCBA" 

"ABCD" (4 3 2 1) (3 4) 4 "BA" 


CNTRL/C will interrupt vector-8 during any operation 
and restart. 


OPERATORS 

Vector-8 offers 15 operators. A table follows; 
(N-numerical mode, c-character mode). 
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OPERATOR PRIORITY 

MODE 

OPERATION 

4- 3 

N 

\ 


addition 

3 

N 



subtraction, unary inin 

/ 4 

N 



division 

* 4 

N 



multiplication 

t 5 

N 



general exponentiation 

: EQ: 2 

N 

or 

c 

relational = 

: GT: 2 

N 

or 

c 

relational > 

: LT: 2 

N 

or 

c 

relational < 

: GE: 2 

N 

or 

c 

relational ^ 

: LE: 2 

N 

or 

c 

relational 

:NE: 2 

N 

or 

c 

relational 0 

W 2 

N 

or 

c 

compression 

Sc 2 

N 



logical and (/\) 

! 2 

N 



inclusive or 

, 1 

N 

or 

c 

cantenation 


In an expression, exponentiation is performed first, 
multiplication and division second, addition and subtraction 
third, the relational operators, compression and logic 
fourth, and cantenation last. 

The operator "t" indicates general exponentiation. 

Thus, a t b is computed e^-*- na . Due to the discontinuities 
of the general expontiation function, (a ^ b when a<o 
exists only for odd b), it is necessary to determine whether 
or not b, when afo, is an odd fraction. This on a computer 
is impossible to do, thus certain comprimises have to be 
made. Exponentiation in Vector-8 is defined in the following 
manner: 

When a>0, a f b is legal for all b. Example: 

2 f 2 4 4 
2 t (-2) 1 .25 

When a=o, a ^ b produces 0 for all b. Example: 

0 t .5 4 0 
0 t 2 =} 0 

When a<0, a t b is legal for i) all b20 

ii) b<0 if b is an integer 

or 1/b is an odd integer 
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Example: 


(-2) f 2 4 4 

(-2) * 3 => -8 

(-4) t . 5 ^ error 

(-8) f (1/3) ^ -2 

(-2) t .2 =* 


FUNCTIONS 

vector-8 has 32 functions. A function is specified by 
an "F", followed by the name. A list follows: 

Numerical functions? 


FSIN 

(ARG) 

Returns sine. Arg in radians. 

FCOS 

(ARG) 

Returns cosine. Arg in radians 

FTAN 

(ARG) 

Returns tangens. Arg in radians 
If cos (ARG) = co, the error 
"DIVISION BY ZERO" is returned. 

FATN 

(ARG) 

Returns arc tangent of Arg. 

FLOG 

(ARG) 

Returns the naperian log. If 

ARG £ 0, the error, "LOG OF 

ZERO" is returned. 

FEXP 

(ARG) 

Returns e ARG 

FABS 

(ARG) 

Returns |ARgI. 

FSGN 

(ARG) 

If ARG (0, returns -1. 

If ARG20, returns +1. 

FNOT 

(ARG) 

If ARG = 0, returns a 1. 

If ARG = 1, returns a 0. 

If ARG /0 /l, returns error 

message: "BAD ARG IN FUNCTION". 

FINT 

(ARG) 

Returns integer part of ARG. 

FFRC 

(ARG) 

Returns fractional part of ARG. 


If DIM (ARG) = 0, then a null vector is returned by 
all of numerical functions. If ARG is a character string, 
the error "BAD ARG IN FUNCTION" is returned. 
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Reductive Functions: 


FMLT(ARG) 

If DIM(ARG) = 0, a 1 is returned. 

If DIM(ARG) = 1, ARG(l) is returned. 

If DIM (ARG) Z. 2, ARG (1) X-X ARG f DIM (ARG)] 

is returned. J 

FADD(ARG) 

If DIM(ARG) - 0 , a 0 is returned. 

If DIM(ARG) = 1, ARG(l) is returned. 

If DIM (ARG) > 2, P IM( 7 ARG(i) is returned. 

2 l _ \ 

i = 1 

FSUB(ARG) 

If DIM(ARG)= 0 , a 0 is returned. 

If DIM(ARG) = 1, ARG(l) is returned. 

If DIM (ARG) 2. 2, ARG (1) -ABG (DIM (ARG) } 

is returned. 

FDIV(ARG) 

If DIM(ARG) - 0 , a 1 is returned. 

If DIM(ARG) = 1, ARG(l) is returned. 

If DIM (ARG) 2: 2, ARG (1)/ARG (2)/. . ./ 

ARG CdIM (ARG)3 

is returned. 

FMAX(ARG) 

If DIM(ARG) = 0, a null vector is returned. 
If DIM(ARG) = 1, ARG(l) is returned. 

If DIM(ARG) — 2, the largest number 
is returned. 

FMIN(ARG) 

Same as FMAX, except that smallest number 
is returned. 

FAND(ARG) 

Same as FMAX, except that 

ARG (1 )aARG (2 )/\. . . ARG (DIM (ARG)} 
is returned. 

FIOR(ARG) 

Same as FMAX, except that 

ARG (1 )VARG (2 )y ... 1/ ARG CDIM (ARG)} 
is returned. 

FEQ(ARG) 

Same FMAX, except that 

ARG (1) : EQ: ARG (2) : EQ EQrARG (DIM (7 .G)} 

is returned. 


5 





FGT(ARG) 
FLT(ARG) 
FGE(ARG) 
FLE(ARG) 
FNE(ARG) 


Same as FEQ, 
Same as FEQ, 
Same as FEQ, 
Same as FEQ, 
Same as FEQ, 


except that 
except that 
except that 
except that 
except that 


:GT: 

is 

used. 

: LT: 

is 

used. 

:GE: 

is 

used. 

: LE: 

is 

used. 

: NE: 

is 

used. 


The only errors possible when using the reductive frictions 
is the error "MODE ERROR WITH OPERATOR.V This occ rs when 
ARG in FAND and FIOR is not comprised solely of l's and 0's. 

Also note that character strings are legal in the reductive 
functions. 

Special Purpose Functions: 


FCWM(ARG) 


Changes the mode of ARG, from numeric 
to character or vice versa. 


FSER(ARG) 


i) FSER(a) 

ii) FSER(ab) 

iii) FSER(abc) 


1 £ DIM(ARG) ^.3. If this is not true, 
error message "BAD ARG IN FUNCTION" 
is returned. The three forms of FSER are 
outlined below.. 

If a = 0, a null vector is returned. 

If a < 0, "BAD ARG IN FUNCTION" is returned. 
If a > 0, the series 1,2,...,a is returned. 
If a > b, a null vector is returned. 

If a < b, the series a, a+1, a+2,...b 
is returned. 

If a S c and b < 0, or if b = 0, then 
"BAD ARG IN FUNCTION" is returned. 

If a > c, a null vector is returned. 

If a < c and b > 0, the series, ^ 

a, a+b, a+2b,...,c is returned. 


FDIM(ARG) 


Returns dimension of the ARG. 


FRAN(ARG) If DIM(ARG) = 0, the random generator 

is randomized. This equivalent to a 
BASIC RANDOMIZE command. 

If DIM (ARG) 1, ARG (1) random numbers 
are generated. All random numbers 
are between 0 and 1. 
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FREP(V,N) 


FROT(V,N) 


FNEW(ARG) 


If DIM(V, N) = 0, or if N < 0, or if 
the ARG is a character string, the 
error, "BAD ARG IN FUNCTION" is returned. 

If DIM(V,N) = 1, a null vector is returned. 
If DIM(V,N) > 2, Vis repeated N times. 

If DIM(V,N) = 0, the err.i, "BAD ARG 
IN FUNCTION" is returned. 

If DIM(V,N) = 1, a nail vector 
is returned. 

If DIM(V,N) ^ 2, then V is rotated 
-N times left if N < 0, or N 
times right if n > 0# or no times at 
all if N = 0 . 

FNEW is a function which can be 
defined by the uses on a machine 
language level. As it is defined 
now, it simply returns the argument. 


COMMANDS AND LINE STRUCTURE 

Vector-8 offers 22 commands. Each command is uniquely identi¬ 
fied by 3 characters (except for the IF command). 

The Vector-8 interpreter recognizes two modes of operation. 

One is direct mode, that is a command string is executed 
immediately upon input. The second is indirect mode, that 
is a command string is stored away, identified by a line number, 
for later reference. Mode one is indicated by typing a command 
string, and hitting a CR. Mode two is indicated by preceding the 
string with a line number. 

A line number can be an integer greater than 0 but less than 
2048. A command string is made up of a series of commands, 
each terminated by a "\". The entire string is terminated by a CR. 
This is analogous to FOCAL, except that commands in it are 
separated by semicolons. 

A description of the commands follows; 

± m REM Remark. This is the connect command. 

Any argument is ignored, and control 
is passed to the next command. 

2 . RUN This command runs the program in core. 
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3) QUIT 


This causes program execution to cease 
A return to immediate mode 
is made. 


4) GOTO EXP 


i) 

ii) 

iii) 


(EXP stands for an expression). 
Transfers control to line F' r P(l). 
Possible errors: 

"BAD ARG IN COMMAND" -DIM(EXP) = 0 or 

EXP is a char string. 
"LINE NOT FOUND" -line cannot be found. 
"ILLEGAL LINE NO" - The line specified by EXP(l) 
is less than or equal to 0. Note, EXP(l) is 
fixed, so the fractional part, if it exists, 
is ignored. 


5) GOSUB EXP Control is transferred to a subroutine 

at line at EXP(l), then at line 
EXP(2), then at line EXP(3),..., at 
line EXP(DIM(EXP)). The same errors 
as in GOTO occur in GOSUB. 


6) RETURN Return from subroutine. If the 

GOSUB command has done all lines 
specified, then control passes to the 
command following the GOSUB. If 
not, then control passes to the next 
subroutine. The one possible error is: 

i) "RETURN WITHOUT GOSUB" - A RETURN command is not 
matched with a GOSUB. 

7) SET VAR = EXP The variable VAR is defined to be 

the result of expression EXP. 

Possible errors: 

i) "SYNTAX ERROR" - a violation of syntax 
has occurred. 

ii) "VAR TO LARGE" - When attempting to creat VAR, 
the variable storage area overflowed into the 
temporary stack. The user should attempt to 
make DIM(EXP) smaller. 

SET VAR (INDEX) = EXP Certain elements of VAR are replaced 

by EXP. If DIM(EXP) =1, then all 
elements are set to EXP, otherwise 
DIM(EXP) must equal DIM(INDEX). 

Possible errors* 
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"UNDEFINED VAR" - One cannot index a VAR which 
hasn't been defined. 

"SYNTAX ERROR" - (obvious) 

"BAD ARG IN COMMAND" -(DIM)EXP = 0. 

"INDEX TO LARGE" - Index > DIM(VAR). 

"INDEX = ZERO" - Indices <0. 

"INDEX A CHAR STRING" - t>obvious) 

A "?" is typed on the teletype, and 
the user types any legal expression. 
It is evaluated and VAR is defined 
to be the result. 

ASK VAR (INDEX) A "?" is typed on the teletype. The 

procedure is the same as "ASK VAR", 
except that only certain elements of 
VAR are redefined. 

ASK % VAR Same as "ASK VAR", except that the 

input is taken from the high speed 
reader. care should be taken to 
see that the data tape is terminated 
by a CR. A procedure for generating 
data tapes will be discussed under 
the FORMAT command. 


i) 

ii) 

iii) 

iv) 

v) 

vi) 

8) ASK VAR 


ASK % VAR (INDEX) Same as "ASK % VAR," except that only 

certain elements of VAR are replaced. 

The possible errors are the same as occur in the SET 
command. 


9) TYPE ARG; ARG) 


...;ARG 


ARG can be any of the following 
5 things* 


a) ! 

b) # 

c) t 

d) % 


e) EXP 


a CR-LF is typed, 
a CR is typed, 
a LF is typed, 

output goes to the high speed 
punch for the rest of the 
TYPE command. 

If a char string, the 
characters are typed. If 
a number string, the numbers 
are outputed according to 
the format set via the FORMAT 
command. 


There are 
type command. 


no special error messages associated with the 
Note, a null vector is outputted as a blank. 
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10) If EXP 


EXP is evaluated. If EXP = 1, 
then the rest of the line is exe¬ 
cuted. If EXP = 0, then control 
goes to the next line. possible 
errors: 

i) "BAD ARG IN FUNCTION" occurs if EXP 1^0. 

11) LOOP VAR = EXP This command initiates a loop 

according to the parameters in 
EXP. There are 2 forms of this 
command. 

In this case a must be<b. 

The increment is assumed to 
be 1. Thus VAR varies in ^ 

value from a, a+1, a+2, ...,b 
as the loop proceeds. The 
loop ends when VAR > b. All 
commands following the LOOP 
command up to the corresponding 
NEXT statement are executed 
for the limits of the loop. 

This is exactly the same as 
case i, except that the increment 
is specified. There are 2 
cases to this form of the 
LOOP command. 

a) a < c and b > 0 Loop proceeds till VAR > c. 

b) a > c and b < 0 Loop proceeds till VAR <C c. 


i) LOOP VAR = a b 


ii) LOOP VAR = abc 


The main possible error is "BAD ARG IN COMMAND" which can 
occur if for instance EXP is null, a is a char string, or if 
in case 2, a < c and b < 0, or if b=0, etc. 


$ 



12) NEXT VAR This command marks the end of a particular 

loop initiated by a LOOP command. If 
the loop is not completed, it transfers 
control to the command following the 
LOOP command. If the loop is finished, 
the control is transferred to the 
command following the NEXT command. 


Tiie operation of the LOOP, NEXT commands is similiar to the 
operation of the BASIC FOR, NEXT commands. No check is made, 
though, to see if the loops are properly nested. The error in 
the NEXT command is "BAD ARG IN COMMAND". 
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13) LIB S PNAME 


Saves the program in core in ihe 
library under the name, PNAME. 

PNAME is a name which consists of 
of up to 4 characters which may be 
a letter, digit, or period. 

Possible errors: 
i) "DIRECTORY FULL" occurs if there i- no more 

room or if a program is 
already in the library under 
the same name. 

LIB C PNAME calls the program whose name is PNAME 

from the library into core, possible 
error: 

ii) "NAME NOT IN LIB" No program whose name is PNAME. 

LIB D PNAME The program whose name is PNAME is 

deleted. Possible errors: 
ii) "NAME NOT IN LIB" 

LIB L List the directory, and the number of 

free blocks. 

There are room for 20 programs in the library. Each block 
is 1024io words. LIB C does not start the program once it is 
called. 

14) CALL Ply P2 pi is the name of the program cur¬ 

rently in core. P2 is called into 
core, executed, and control resumes 
at the command following the CALL 
command in Pi. possible errors: 
i) "NAME NOT IN LIB" programs under the name of 

Pi or P2 are not found in 
the library. 

In order for CALL command to operate correctly, all programs 
referenced by the CALL command must be ip the library. This is 
because when P2 is called into core. Pi is necessarily erased, 
thus, leaving the copy of Pi in the library the only existing one. 
When P2 ceases execution. Pi is called back into core from the 
library, thus, 3 good copy of Pi must exist on the disk. 

15) WRITE EXP The lines specified by EXP are listed. 

If EXP is null, the entire program is 
listed. By typing, for example, 
"WRITER," the entire program is listed. 
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WRITE % EXP Same as above, except output is 

to the high speed punch. 

Possible errors: 

i) "LINE NOT FOUND" 

ii) "ILLEGAL LINE NO." 

iii) "BAD ARG IN COMMAND" EXP is a char s f-ing 

16) KILL VAR-^; VAR 2 ; VAR 7 The variables in the listed 

are deleted. If there is no 
list, all variables are 
deleted. 

17) DELETE EXP The lines specified are deleted. 

If EXP is null, all text is deleted. 


Possible errors: 

i) "ILLEGAL LINE NO" 

ii) "BAD ARG IN COMMAND" - EXP is a char string 

18) DUMP No argument. Dumps out the 

variable storage in the following 
format. 

NAME MODE (N or C) DIMENSION 

19) TRACE S EXP A trace is set at the lines speci¬ 

fied by EXP. If EXP is null, then 
the entire program is traced. 

TRACE K EXP A trace is removed from the lines 

specified by EXP. If EXP is null, 
all traces are removed. 

The possible errors are what one would expect, 
"ILLEGAL LINE NO.", "LINE NOT FOUND", etc. 

The trace feature works in the following way: if a line 
is traced, its line number is typed on the teletype as execution 
of the line is about to commence. Thus, this trace feature 
provides a picture of the flow of the program. When the program 
is isted, an " 1 " is typed following the line number to indicate 
that a line is traced. 
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19.2) 


PUNCH This command causes the program in core to be punched 
on the low speed punch. The format of the tape is as 
follows: Leader/Trailer, Binary dump of program, 

Leader/Trailer. This command should be used to save 
programs on paper tape, the WRITE command should not. 
The reason for this is that vector-8 has a facility for 
the continuation of lines. The WRITE commf id, though, 
when printing a line which is continued, types CR's 
between the lines in order to produce readable output. 
But when the tape produced by the WRITE command is read 
back in, the CR's typed by WRITE only for legibility 
are interpreted as line terminators. Thus, the need 
for the PUNCH command. 

Wl. 9.4) PUNCH % 

Same as PUNCH, except that the tape is produced on the 
high speed punch. 

19.6) READ 

A tape produced by the PUNCH command is read from the 
low speed reader. 

19.8) READ % 

Same as READ, except the high speed reader is used. 







20) FORMAT ARG; ARG; 


This command sets up output para¬ 
meters. ARG can be one of two things: 


i) NXX.YY 


This sets up format for the type 
out of number. XX is the total num¬ 
ber of digits, and YY is the number 
of digits to the right of the 
decimal point. XX and YY must be 
less than 31. The current output 
format is retained until changed. 

If a number is too large for a given 
format, floating point format is 
used temporarily. If no XX.YY is 
specified, then floating point format 
is used. Format is initially set 
to 8.07. 


ii) LEXP 


This sets up the format for the line. 
1^. DIM (EXP) ^ 3 . Three parameters 
can be specified. 


a) 

Number 

of 

numbers 

per line 

b) 

Number 

of 

spaces 

between i 

c) 

Number 

of 

CR-LF's 

between 


If DIM(EXP) - 1, parameter a is set 
If DIM(EXP) = 2, parameters a,b are set 
If DIM(EXP) = 3, parameters a,b,c are set 

The numbers specified by EXP must be greater than 0, 
but less than 2048. 

It is possible, using the FORMAT and TYPE commands to produce 
a data tape on the high speed punch which then can be read in 
by the ASK command. 

Suppose we wish to make a data tape of the numbers 1 to 500. 

The following command string would be used: 

FORMAT L500\ TYPE % FSER (500) ? ! 

The FORMAT command insures that no CR's will be typed 
betveen numbers. The TYPE command types out the numbers, and 
terminates the tape with a CR. 

It is useful to consider a more general form of the above. 
Suppose we wish to save a variable on paper tape. The following 
command string would be used: 


FORMAT LFDIM(VAR)\ TYPE % VAR ; ] 
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7 ' 

It has been assumed above that we have saved a VAR of 
numerical mode. To save a VAR of char mode, we would h. ve to 
type the string, enclose it within quotes, and terminate with 
a CR. The following would be used: 

TYPE % FCHN (162) , VAR, FCHN (162) ; ! 

The FCHN function is necessary to type a quote because 
a "can't be part of a string. 162 is the decimal code of 
a quote. 

21) SELECT ARG; ARG ... This command is used to select 

high or low speed input or output 
and to turn off and on the echo. 
ARG can be 6 things. 


a) 

% X 

Select high speed for X 


b) 

% XX 

Select high speed for X and x 


c) 

% XXX 

Select high speed for X,X, and 

X 

d) 

X 

Select low speed for X 


e) 

XX 

Select low speed for X and X 


f) 

XXX 

Select low speed for X, X, and 

X 

X 

can be the following 

three things: 


a) 

I 

Input. Keyboard or high speed 

reader 

b) 

0 

Output. Teletype or high speed punch 

c) 

E 

E - echo, % E - don't echo. 


Some examples: 




SELECT % IE Read from HSR, don't echo. 

SELECT IE; % 0 Read from keyboard, echo on high 

speed punch. 

If ARG, is terminated by a CR or , then by default low 
speed input, output, and echo are selected. « 

22) MODIFY EXP Edits line EXP (1) . A CR is issued, 

and the command waits for the user 
to type the search character. The 
line is then typed out till the char 
is found. If not found, the line \s 
not changed. Once the char is found 
the user has 4 options: 
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i) Type in as normal, i.e., use RUBOUT, 

etc. Hitting a CR terminates the input, and 
terminates the MODIFY command, 

ii) Hit a CNTRL/E. This will type out the rest of 
the line, save it in the newly modified line, 
and terminate the MODIFY command, 

iii) Hit a FORMFEED (CNTRL/L). This will rearch 
for the next occurance of the search char, 

iv) Hit a BELL (CNTRL/G). This will change the 
search char. The computer waits for a new 
search to be typed. 


'Tote CNTRL/E, BELL, FORM FEED and the search char do not 
echo. The operation of the MODIFY command is very similiar 
to FOCAL's. 



LOADING VECTOR-8 


There are 2 tapes supplied. One is the interpertor, the 
core resident segment. The second is the disk resident seg¬ 
ment. The first thing to do is to load the BIN loader into 
field 1. This is because the interpreter uses locations 
7600-7777 of field 0. 

Load tape 1, the core resident segment, into field 0. 

Then place tape 2 in the high speed reader. Load address 
26008 in field 0. Depress START. This is a bootstrap routine 
which writes the tape onto the appropriate places on the disk. 
After tape 2 is loaded, load addr. 02008 in field 0r, and start. 
Vector - 8 will type out an error message, and a to announce 

that it is ready for commands. 

If a particular machine configuration doesn't have a high speed 
reader, make the following patch. It will cause tape 2 to be 
read in from the low speed reader. 

LOCATION FROM TO 



2605 


7340 


7300 
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DISK STRUCTURE 


Vector 


8 structures the DF32 in the following way: 


Tracks 0 , 1 
Tracks 2 , 3 
Tracks 4 , 5 
Tracks 6 , 7 
Tracks 8 , 9 
Tracks 10,11 
Tracks 12,13 
Tracks 14,15. 


Disk extension of stack. 
Functions are stored here. 
Commands and other misc. 
Lib blocks 1,2,3,4. 

Lib blocks 5, 6 ,7, 8 . 

Lib blocks 9,10,11,12. 

Lib blocks 13,14,15,16. 

Lib blocks 17,18,19,20. 




A map of tracks 

2,3: 

^LOCK 

0) 

SIN 


14) 

1 ) 

COS 


15) 


2 ) 

TAN 


16) 


3) 

ATN 


17) 


4) 

LOG 


20 ) 


5) 

EXP 


21 ) 


6) 

ABS + DELV 


22 ) 


7) 

SGN 


23) 


10 ) 

NOT 


24) 


ID 

I NT 


25) 


12 ) 

FRC + SET SEG 

2 

26) 


13) 

MLT 


27) 



A map of tracks 

4,5: 

BLOCK 

0 ) 

INPUT 


14) 


1 ) 

SET 


15) 

• 

2 ) 

TYPE 


16) 


3) 

ERROR SEG 1 


17) 


4) 

DIRECTORY 


20 ) 


5) 

LIB COMMANDS 


21 ) 


6) 

FLOAT I/O SEG 

1 

22 ) 


7) 

FLOAT I/O SEG 

2 

23) 


10 ) 

FORMAT 


24) 


ID 

WRITE 


25) 


12 ) 

DELETE 


26) 


13) 

KILL 


27) 


ADD 

30) 

NE 

SUB 

31) 

ROT 

DIV 

32) 

SER 

MAX 

33) 

DIM + DELD 

MIN 

34) 

REP 

AND 

35) 

RAN 


36) 

NEW 

EG 

37) 

FREE BLOCK 

GT 



LT 



GE 



LE 




TRACE 


30) 

FREE 

BLOCK 

NEXT 


31) 

FREE 

BLOCK 

LOOP 


32) 

FREE 

BLOCK 

DUMP 


33) 

FREE 

BLOCK 

SELECT 


34) 

FREE 

BLOCK 

MODIFY 


35) 

FREE 

BLOCK 

LOG, EXP FOR T 

36) 

FREE 

BLOCK 

ERROR SEG 

2 

37) 

FREE 

BLOCK 

ERROR SEG 

3 




ERROR SEG 

4 





ERROR'SEG 5 
ERROR SEG 6 
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LOADING USER FUNCTIONS AND COMMANDS 


First some comments: There are two ways user routines 
can be interfaced with vector-8. One is to load into free 
blocks, the other is to replace already defined blocks. care 
must be taken with the second method, for some blocks cannot 
be replaced. For example, in the function tracks (2,3), blocks 
6, 12, and 33 cannot readily be replaced. Block 6 bee use it 
has in addition to ABS, the routine which deletes variables, 
which is necessary to SET. Block 12, because it has part of 
the SET command, and block 33 because it contains the routine 
to delete lines, which is needed if one wishes to be able to 
retype stored lines. 

There is room to define two new functions, in blocks 36 and 37 
respectively. For block 37, though, a name must be defined. 

This name is then entered in FUNLST (see listing FOIL.LST). 

If one wishes to replace a defined function such as FEQ, one 
simply replaces the slot FEQ holds in FUNLST with the new name 
and loads up the new function into the proper block on the disk. 

In the command tracks (4,5) it is not recommended that 
commands be replaced, for there are 7 free blocks. One simply 
codec, the command anme, only up to the first 3 letters, enters 
the name in NCORE, (see FOIL„LST), and its block number in 
PTAB1 (see FOIL. LST) . 

A command or function name is coded in base 4. An example: 

ABS = 4 2 XA+4XB+1XS 
= 16X1+4X2+1X19 

= 16+8+19 

= 24+19 

= 43 

One uses the 6 bit code of the characters: 

SET = 16 X 19 + 4 X 5 + 20 

= 304 +20+20 

= 344 

The user command or function must be assembled for locations 
7200 - 7377. It is then loaded into those locations with the 
BIN loader. Then a patch should be toggled into locations 
7400-7412 to write the functionor command into the proper block 
of the disk. There are 2 patches, one for the function tracks, 
the other for the command tracks. 
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PATCH 1, 

for writing onto function 

LOCATION 

OCTAL 

7400 

6001 

7401 

7604 

7402 

4562 

7403 

0200 

7404 

3211 

7405 

4532 

7406 

7600 

74rt7 

7177 

7410 

0100 

7411 

0000 

7412 

7402 


tracks ; 

SYMBOLIC 

ION 

LAS / Read in block n 

MULT 

200 

DCA .+5 
WRITE 
-200 

FNCBUF-1 

T2U0D0 

0 

HLT 


PATCH 2, for writing onto command tracks is the same except for 
location 7410 which should be 0200. 

Example: Suppose I wish to define a function, using the 

name FNEW, which would read in N ADC values from channel 0. 

The following would do it: 


*7200 
FNEW, 0 

TAD (202) 
DCA PNTRTS 
POPFT 
FLTTMP 
JMS FIXIDX 
DCA DIMRI 
TAD DIMRI 
CIA 

DCA FPCNTR 
INIT 

TLOUP, ADCV 
SKAD 
JMP .-1 
RADC 
FLOAT 
PUSHFT 
FLTTMP 
1ST FPCNTR 
JMP TLOUP 
JMP I FNEW 


/ Assume No Errors. 
/ Get # of Values. 

/ FIX IT. 

/SET DIM OF RESULT 


/SET CNTR. 

/ INIT TEMP. STACK. 


/ FLOAT VALUE. 
/ PUSH RESULT. 

/ DONE? 

/ NO. 

/ YES. 
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This patch would be assembled, with the appropriate 
definitions, for such symbols as FPCNTR, INIT, etc. exist in 
the Vector-8 source, but not in the patch source. The binary 
would be loaded into locations 7200-7377. The patch would be 
toggled in. Location 7400 would be load addressed, 36, the 
block number of FNEW, would be put in the SR, and START would 
be depressed. The LAS instruction would read in'the b^ock 
number, and locations 7200-7377 would be written ontc clock 36. 


ERROR LIST 

At error in vector -8 is reported in the following format, 
MESSAGE ; LINE XXXX COMMAND YYYY. 

Where MESSAGE is the error message, XXXX is the line at 

which the error occured, and YYYY specifies which command in 

the string caused the error. So if an error occured while 

executing the third command in a command string, YYYY would be 3. 

A list of the errors: 

1) jLLEGAL COMMAND 

2) RETURN WITHOUT GOSUB 

3) BAD COMMAND TERMINATOR - A command was not terminated by a 
CR or " ". 

4) LINE NOT FOUND 

5) BAD ARG IN COMMAND 

6 ) ILLEGAL LINE NO. 

7) SYNTAX ERROR 

8 ) INPUT BUFFER OVERFLOW - The input buffer has overflowed into 
text area. Either cut down size of text or cut down the 
input string. 

9) INDEX = ZERO 

10) INDEX TO LARGE 

11) STACK OVERFLOW - An expression was too complex. Simplify. 

12) STACK UNDERFLOW - This should not occur. If it does, there 
was probably a bomb out. 

13) MODE ERROR WITH OPERATOR - An attempt was made to add char 
strings, or to do logical and with char strings, etc. In 
other words, an operator has bad arguments. 

14) ILLEGAL CHARACTER 

15) TEMP STACK OVERFLOW - Temporary stack has overflowed into 
variable storage. Either cut down VAR storage or simplify 
the expression. 

16) ILLEGAL FUNCTION 

17) MIS-MATCHED PARENS 
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18) EXPONENT OVERFLOW - A calculation caused a number to be 
too large. 

19) EXPONENT UNDERFLOW - A calculation caused a number to be 
too small. 

20) DIVISION BY 0 - This error will also occur when FTAN is 
called is COS(ARG)=0. 

21) ERROR IN t 

22) TOO MANY DIGITS IN NUMBER 

23) NULL OR CHAR INDEX - An index is a null or is a char string. 

24) DIM ERROR WITH OPERATOR - The dimensions of an argument of 
an operator are not right. 

25) DISK I/O ERROR - Something is wrong with the disk. 

26) MANUAL RESTART - Vector-8 has been restarted via a CNTRL/C 
or via the SR. 

27) LOG OF ZERO - An attempt was made to take the log of a 
number K.0. 

28) BAD ARG IN FUNCTION 

29) MODE ERROR IN COMMAND - This will occur for example, when 
trying to assign a character string to particular elements 
of a numerical variable. There is an illegal mixing of 
modes. 

30) VAR TOO LARGE - While defining a VAR, it overflowed into the 
Temp Stack. Simplify the expression or cut down the size of 
the VAR. 

31) UNDEFINED VAR - A Var was referenced that was not defined. 

32) NAME NOT FOUND IN LIB 

33) ILLEGAL OP 

34) DIRECTORY FULL 
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AN INTRODUCTION TO VECTOR-8 
A NEW PROGRAMMING LANGUAGE 


Richard Rothman 
Groton School 
Groton, Massachusetts 

Vector-8, a new interpretive language, is designed to provide a PDP-8 family computer 
sporting 8K and a DF32 disk with power previously unavailable to such a mac’ ne. The 
reasons for this are manifold. First, Vector-8 is not a language written for u basic 4K 
machine and slightly modified to accommodate extra hardware, but has rather been de¬ 
veloped with the knowledge that 8K and a 32K disk, if properly utilized, can add consid¬ 
erable versatility to a language. 


Secondly, Vector-8 applies a powerful concept to the manipulation of vectors. A vector 
is considered to be a unit rather than a collection of individual elements that have in common 
only the name of the vector. For example, in such languages as BASIC or FORTRAN, it is 
necessary, when applying an operation to an entire vector, or part of a vector, to do so ele¬ 
ment by element. In Vector-8 though, an operation is applied to an entire vector. There is 
no need to loop, and this removes much of the drudgery from programming. In addition, the 
ability to do in a single expression what would take severe! commands in other languages, 
allows for a flexible and powerful syntax. Vector-8, above all, provides one with the 
means of manipulating, with ease, in an on line environment, large amounts of data. 


Vector-8 offers 15 operators (5 arithmetic, 6 relational, 3 logical, and cantenation), 32 
function*, powerful commands, and a complete character string facility. User commands and 
functions can be easily interfaced to the Vector-8 interpreter, which is also equipped to work 
with high speed paper tape, if present. Now for a more detailed explanation of the language. 


A vector can be specified in four ways: 


1 . 

2 . 

3. 

4. 


A number string 
A character string 
By creating a variable 

By cantenating together separate vectors specified as per 1, 2, 3. 


1 . A number string consists of a series of numbers separated by spaces. The dimension of the 
vector specified is the number of numbers. Some examples: 

1 2 3 4 specifies a vector of dimension whose first element is 1, whose second 
clement is 2, whose third element is 3, and whose fourth element is 4. 


L 4 1 specifies a vector of dimension 3 whose first element is 5, whose second 
< ^ment is 4, and whose third element is 1. 


2. A character string consists of a series of characters contained within quotes. Carriage 
returns may be imbedded by typing line feeds. Line feeds will only be recognized within 
quotes. The dimension of the character string is equal to the number of characters in the 
string. Some examples: 
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"ABCD" specifies a vector of dimension 4 whose first element is "A, " whose 
second element is "B, " whose third element is "C, 11 and whose fourth element 
is "D." 

"CDX" specifies a vector of dimension 3 whose first element if "C, " whose 
second element is "D, " and whose third element is "X. " 

3. A variable is a symbol representing a vector. It is specified via a SET command. Some 
examples: 

SET A=1 2 3 4 specifies A as a vector of 4 whose first element is 1, whose second 
element is 2, whose third element is 3, and whose fourth element is 4. 

A variable consists of at most two recognized characters. The first must be a letter, but not an 
"F. " The second can be any letter or digit. Any subsequent letters or digits are ignored. 

4. By cantenating together specified vectors, new vectors can be specified. Some examples: 

12 3, 3 2 1 => 1 1 2 3 3 2 1 


"ABC", "DEF" => "ABCDEF" 


SET A=1 2 

A, 12345 =>1212345 

All the vectors specified above have been of dimension 1 or greater. It is also possible to 
specify a vector of dimension 0. For example: 

" " specifies a null character string 

The ways of specifying null number strings will be shown later. 

Specified vectors may be indexed by following the vector with an expression enclosed in 
parenthesis. Some examples: 

1257 (1 3 4) >157 

1 4 8 9 C 1 1 >1 

"ABCDEF" (6 3 2) > "ECB" 

SET A=1 2 3 

A<2 3> >23 

Indexed vectors may themselves be indexed. Some examples: 

1 46 8 (1 3 2) C 1 2 3 >16 

"ABCDEFG"(1 3 2) < 1 2 > => "AC" 




Indexing may go to any depth, and indices do not have to be integers, for they are trunc 't^d 
anyway. 

1 . reads "produces" 

Vector-8, as mentioned before, has 15 operators, with which vectors are combined in 

various ways. All operators, with the exception of cantenation, can have their arguments in 

three forms. In the ensuing discussion, let :o: represent any operation except for cantenation. 

Let also d stand for a vector of dimension n. The three forms are: 
n 

') d, :o: 

» d n>l = 0: d i 
3) d n>0 ;0: d n>0 

In case 1, me one element on the left is applied to the n elements on the right, to produce, 
in most cases, a result of dimension n. This process can be described by: 

for i=l,n apply d^ to d^and set the result r. 

In case 2, the n elements on the left are applied to the one element on the right, to produce, 
in most cases, a result dimension n. This process can be described by: 


ior i=l,n apply d. to d^ and set the result r. 


In case 3, each element on the left is applied to its corresponding element on the right. This 
process can be described by: 

for i=l,n apply d. to dTand set the result r. 

r ' i i i 

It should be noted that the :o: operations can not be used with null arguments. 

Cantenation takes the following form: 

d n>0 ' d n>0 

The following are the Vector-8 operations: 

symbol priority description 
1) Aritl etic: + 


* 

/ 

/ T 


3 addition 

3 subtraction (or unary minus) 

4 multiplication 

4 division ^ b Ina 

5 exponentiation, a computed e 
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s/mbo! priority . description 


2) Relational: 

EQ: 

2 

relational = 


GT: 

2 

relational > 


LT: 

2 

relational < 


GE: 

2 

relational > 


LE: 

2 

relational < 


NE: 

2 

relational / 

3) Logical: 

& 

2 

logical and (A) 



2 

inclusive or 


# 

2 

compression 

4) Catenation: 

/ 

1 

cantenation 


Note: The higher the priority number, the higher is the priority of the operation. So in an 
expression, exponentiation is performed first, followed by multiplication and division, addition 
and subiraction, the relational and logical operators, and finally cantenation. 

Group 1, the arithmetic group, does not operate on character strings. A few examples: 

1 + 1 2 3 => 2 3 4 


1 2 3*2 =>2 46 

4/2 => 2 

1 2 3f4 5 6 => 5 7 9 

The second group, the relational group, compares the two arguments in the same manner as :o:. 
If the condition is true, a 1 is placed in the result. If the condition is false, a 0 is placed in 
the result. Thus, the two logical quantities, true and false, are defined to be 1 and 0 re¬ 
spectively. 

Character strings may be compared with each other, but not with number strings. The two 
modes cannot be mixed. When character strings are used with the relational operation, their 
character codes are compared, thus, "A" is less than "B. " Some examples: 

1 :EQ:1 2 3 => 10 0 

1 2 3:GT:4 1 2 => 0 1 1 

"ABC ":NE:"DEC" =>110 

The logical operators must have for arguments only 1 's and 0's. Some examples: 

1 1 0&0 1 0 => 0 1 0 
1 0 1 0 => 111 
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The operator * has logical quantities for its left argument, and a number or character str'' 
for its right. It functions in the following way: Where there is a 1 in the left 01 ^, the 
corresponding element in the right arg is retained in the result. Where there is a 0. the 
corresponding element is not retained in the result. Some examples: 

1*1 0 5 8 => 1 0 5 8 

1 0 1 11*8 => 8 8 8 8 

10 1*12 3 => 13 

1 2 3:EQ:1 2 4*"ABC" => "AB" 

0*1 => null vector of numerical mode 


SET A=2 2 3 2 4 5 6 2 2 

2:EU:A*A => 2 2 2 2 2 

2:EQ:A*1 23456789 => 12489 


These are the Vector-8 operators. Vector-8 also offers 32 functions. A function is repre¬ 
sented by an "F" followed by the name. A list follows: 

Numerical Functions: 


FSIN < d nX)) 

sine, argument in radians. 

FC0S < d „X,> 

cosine, argument in radians. 

FT A N( d „xj) 

tangent, argument in radians. 

FATN ( d nXj) 

arc-tangent. 

FLOG < d „>0> 

natural logarithm. 

FEXF < d „x>) 

exponential. e X 

FABS < d „X>> 

absolute value. 

FSGN < d n>0> 

sign function. 

FNOT(d ^ 

logical not function. Argument must contain only 1 's and 0's. 

FINT < d n>0> 

integer function. 

FFFG < d nX)) 

return fractional part of argument. 
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Reductive Functions: 


FMLT < d n>l> 

reductive multiplication. 

FADD < d „>,> 

reductive addition. 

FSUB(d„>i) 

reductive subtraction. 

FDIV(d n >,) 

reductive division. 

FMAX(d . 

n>l 

returns largest number. 

FMIN(d n>] ) 

returns smallest number. 

FAND < d n>l> 

reductive logical and (A). 

F1 OR(d 

n/i' 

reductive inclusive or (V). 

F EQ (d n >,) 

reductive :EQ: . 

FGT < d n>l > 

reductive :GT: . 

FLT < d n>I> 

reductive :LT: . 

FGE < d n>l> 

reductive :GE: . 

FLE < d n>l> 

reductive :LE: . 

FNE < d „>1> 

reductive :NE: . 

Other Functions: 


FcHN (d iX) ) 

change mode of argument. 

FROT < d „>2) 

rotates the argument. 

FSER < d K„<3> 

generates a series. 

FREP < d „>0> 

repeats the argument. 

FDIM V 

returns dimension of argument. 

FRAN < d „>0> 

generates n random numbers. 

FNEW() 

user defined function. 


Numerical functions have for arguments vectors whose dimensions are greater than 0. The 
reason being that it doesn't make sense to, for instance, take the sine of a null vector. Each 
function applies its particular operation to each element of its vector argument, and places in 
the element operated on the result of the operation. So for example: 
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FNOT(l 0 0 11) => 0 110 0 
FSIN(1 2 3) => sin 1 sin 2 sin 3 


Each reduction function reduces its vector argument, whose dimension must be 2 or greater, 
to a single number by applying its operation to the elements of the vector. For example, 

FMLT applies its operation, multiplication, to produce a result which is equal to all the 
elements of the argument multiplied together. This process can be visualized by the following: 
Let Oj, a 2 , a^, a^, ... a^ be the arguments of the reductive function whose aeration is 

:q:. Then, 

Oj :q: Oj :q: a^ :q: a^ :q: . . . a^ => result. 

The other f "nctions must be gone into further: 


1. FCHN changes the mode of the argument. If the argument is a character string, then the 
result is a number string whose elements are the codes of the characters. If the argument is a 
number string, then the result is a character string. 

Some examples: 

FCHN("ABC)" ==> 193 194 195 
FCHN(193 194 195) => "ABC" 


This fund ion is designed so that functions such as FROT and FREP can be used with character 
strings. 


2. FROT rotates a vector. The last element of the vector argument is used to indicate the 
direction and number of times that the vector is to be rotated. Call the last element N. 


If N=0 the vector is not rotated. 


If NX) the vector is rotated N times ri 


ght. 



If N<0 the vector is rotated -N times left. 


Because it is not reasonable to rotate a vector of dimension 1, the dimension of FROT's 
argument must be 3 or greater. (N plus the vector to rotate.) Some examples: 

PROT(l 2 3 1) >312 -rotate 12 3 once right. 

F ,HN(FROT(FCHN("ABC"), 1) ) > "CAB" - change "ABC." rotate once right, 

c ange back. 

3. FREP repeats a vector. The last element of the argument, as in FROT, is used to indicate 
how many times. 

If N=0 a null vector is returned. 
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If NXD the vector is repeated N times. 

If N<0 an error results. 

If the dimension of the argument is 1, then a null vector is returned. 

Some examples: 

FREP(l) ==> null vector of numerical mode. 

FREP(1 4) => Till -repeat 1 four times. 

FREP(1 2 2) => 12 12 -repeat 1 2 two times. 

4. FDIM returns the dimension of the argument. Some examples: 

FDIM(1 2) => 2 
FDIM(FREP(1 100)) => 100 
FDIM(" ") => 0 
FDIM(0^4) => 0 
FDIM("ABCDEFR") => 7 

5. FSER takes three forms. One with the argument of dimension 1, another with the argument 
of dimension 2, and the third with the argument of dimension 3. 

a. FSER(dj). Let N be the one element. If N<0 an error results. Otherwise the series 1, 2, 
3, 4, ... N is generated. Some examples: 

FSER(l) => null vector of numerical mode. 

FSER(5) => 1 2 3 4 5 

FSER(10) => 123456789 10 

b. FSER^). Let M be the first, and N be the second element. A series is generated, in 
increments of 1, from M to N. If N<M then a null vector is returned. Some examples: 

FSER(1 5) => 1 2 3 4 5 

FSER(3 6) => 3 4 56 

FSER(2 1) ==> null vector 

FSER(1.2 4.2) => 1.2 2.2 3.24.2 

FSER(2 2) —> 2 





c. FSER(d,). Let N, M, P be the first, second and third elements respectively. A seriv.. Is 
produced from M to P in increments of N. If M>P then a null vector is returned. If N=0 
then an error results. If P>M and N<0 then an error results, for it would be imposs'ble for M 
to reach P with a negative increment. Some examples: 


FSER(1 3 12) => 14 7 10 

t 

FSER(1, (-2), 10) => error 
FSER(1 0 5) => error 

FSER(. 2 .01 .3) => .20 . 21 .22 . 23 . 24 . 25 . 26 . 27 . 28 . 29 . 30 

d. FRAN venerates as many random numbers as the dimension of the argument. A null 
argument is not legal. Some examples: 

FRAN(FSER(2) ) => 2 random numbers. 

FRAN(FSER(1000) ) => 1000 random numbers. 

We have now seen the functions and operators that make up a Vector-8 expression. Now for 
the commands that make up a Vector-8 program. 

1. TYPE EXP;!;^; 'T 1 ;% (EXP stands for a Vector-8 expression) 

CR-LF 
* CR 

T LF 

% Changes output to the high speed punch (HSP) till the TYPE command is 
terminated 

If EXP is a character string, then the characters are outputted. If EXP is a number string, 
then it is outputted according to the parameters specified in the FORMAT command. 


2. SET VAR=EXP 


-create a new variable and set to EXP 


SET VAR(INDEX)= -replace certain elements of VAR with EXP. 

EXP 

3. ASK VAR -create a new variable, VAR. Get values from the TTY. 

ASK VAR(INDEX) -replace certain elements of VAR. Get values from the TTY. 
ASK %VAR -create a new var, VAR. Get values from the HSR. 


-replace certain elements of VAR. Get values from the HSR. 
Note: HSR stands for High Speed Reader. 


ASK % VAR 
(INDEX) 
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4. GOTO EXP 

-EXP must result in a number string. Control is transferred 

to line EXP(l). 

5. GOSUB EXP 

-EXP must result in a numbering string. Control is transferred to 
a subroutine at line EXP(l). 

6. RETURN 

-This command is used to exit a subroutine. Control is 
transferred to the line following the GOSUB that called the 
subroutine. 

7. CALL PNAME 

-The program whose name is PNAME is called down from the 
disk and executed. When the program is done, control is 
returned to the line following the CALL command in the original 
program. 

8. WHEN EXP; 
COMMAND 

-If the result of EXP equals 1, the COMMAND is executed. 

-If the result of EXP equals 0, control is transferred to the 
next line 

-If the result of EXP does not equal 1 or 0, then an error results. 

9. REM 

-This command transfers control immediately to the next line and 
ignores any argument. It is the comment command. 

—s 

o 

7V 

c 

Z 

-This command runs the program in core. 

11. DELETE EXP 

-EXP must result in a number string. The lines specified by the 
elements of the number string are deleted. 

12. KILLVARNAM 

-The variable, VARNAM, is deleted. 

13. EDIT EXP 

-EXP must result in a number string. The line EXP(l) is edited in 
a manner similar to FOCAL's MODIFY command. 

14. WRITE EXP 

-EXP must result in a number string. The lines specified by the 
result are listed on the teletype. If EXP results in a null vector, 
the entire program is listed. 

WRITE % EXP 

-Same as above, except that the listings are produced on the HSP. 

15. DUMP 

-This command dumps the symbol table in the following format: 

NAME 

DIMENSION MODE (char or number string) 

16. SELECT 

I;0;%0;%1 

1 - 

-This command selects l/O devices. 

low speed input (teletype) 
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o - 

low speed output (teletype) 

%l - 

high speed input (HSR) 

%o - 

high speed output (HSR) 

17. FORMAT EXP 

-EXP must result in a number string of dimension 3. This command 
supplies format parameters concerning the output of numerical 
vectors to the TYPE command. Let e^, e^, e^, be the nree 
elements: 


specifies the number of spaces between elements, 
e,. specifies the number of elements per line, 
e^ specifies the number of CR-LF's between lines. 



This command comes in useful when, for instance, a vector of 
dimension 200 is being outputted. That many elements cannot 
possibly fit on a line, so the option is left open to the user as 
to formatting the output. 

18. LIB S PNAME 

-Saves program in core in the library under the name PNAME. 

LIB D PNAME 

- Deletes the program in the library whose name is PNAME. 


These are the Vector-8 commands as they are currently defined. 

LIB C PNAME -Calls the program whose name is PNAME from the library into core. 
LIB L -Produces a listing of all current entries in the library. 

19. LOAD ONAM; -A command or function of the name ONAM is replaced by 


NNAM 

NNAM, and the binary for the new command or function is 
read in from the low speed reader and written up onto the 
appropriate block on the disk. 


LOAD ONAM; -Same as above, except that the binary is read in from the HSR. 


NNAM; 


20 QUIT 

-Program execution is halted, and a return to direct mode is made. 


These ar< the Vector-8 commands as they are currently defined. Programs are created in much 
the same way that they are in FOCAL. If a line of inputted text begins with a line number, 
the text if stored away for later reference. If the line doesn't begin with a line number, the 
text is assumed to be a command, and is executed in direct mode. Thus, Vector-8 can operate 
as a calculator, as well as execute stored programs. 
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A line number is a whole number from 0 to 2047 inclusive. Line number 0 may not be 
deleted, written, or operated on in any way except by a GOTO command. A GOTO line 
number 0 causes the program to halt, just as if a QUIT command had been executed. This 
is in effect a computed halt. 

Vector-8 operates with 7 significant digits. Floating point output is formatted, but the 
format cannot be set by the user, for there is not enough core for the lengthy routine that 
would make this possible. 

This article should serve as an introduction to Vector-8. 










Correction Notice 


Blocks 30 and 31 of the command tracks are occupied by the 
PUNCH and READ commands. 
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